home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / bestofsd.lha / Plazma45.AMOS / Plazma45.amosSourceCode < prev    next >
AMOS Source Code  |  1992-10-20  |  1KB  |  59 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10. C=1
  11. Screen Open 0,640,512,32,Lowres : Flash Off : Curs Off : Hide 
  12. Cls 0
  13. Screen Display 0,140,41,320,256
  14. Palette $0,$11C,$23B,$35A,$479,$598,$6B7,$7D6,$8F5,$9E4,$AD3,$BC2,$CB1,$DA1,$E91,$F80,$F71,$E62,$D53,$C44,$B35,$A26,$917,$808,$709,$60A,$50B,$40C,$30D,$20E,$10F,$F
  15. 'Track Load "cd0:modules/modules-c/mod.chipmunks",10 
  16. Screen Open 1,320,256,2,Lowres : Curs Off 
  17. Locate ,5
  18. Centre "Hejsan Johan och Philip!"
  19. Locate ,8
  20. Centre "Snart kommer THE ultimata plasma!"
  21.  
  22. Screen 0
  23. For X=0 To 640 Step 4
  24.    Ink C
  25.    Bar X,0 To X+4,639
  26.    Add C,1,1 To 31
  27. Next 
  28.  
  29.  
  30. For Y=0 To 512
  31.    Screen Copy 0,0,Y,640,Y+1 To 0,Sin(Y*2)*38,Y
  32. Next 
  33.  
  34. For X=0 To 639 Step 1
  35.    Screen Copy 0,X,0,X+1,512 To 0,X,Sin(X*3)*25
  36. Next 
  37.  
  38. For X=0 To 639 Step 2
  39.    Screen Copy 0,X,0,X+1,512 To 0,X,Sin(X*8)*45+Rnd(8)
  40. Next 
  41.  
  42. For Y=0 To 512 Step 2
  43.    Screen Copy 0,0,Y,640,Y+1 To 0,Sin(Y*1.5)*38,Y
  44. Next 
  45.  
  46. Screen Close 1
  47. Led Off : Track Play 10
  48. Shift Up 1,1,31,1
  49.  
  50. Repeat 
  51.    XOFF=Sin(CNT)*140+180
  52.    YOFF=Cos(CNT*1.6)*100+150
  53.    Screen Offset 0,XOFF,YOFF
  54.    Inc CNT
  55.    Wait Vbl 
  56. Until Inkey$<>""
  57. Fade 1
  58. Track Stop 
  59. Edit